0 GOSUB60100:GOTO10
1 POKE781,R%:POKE782,C%:POKE783,PEEK(783)AND254:SYS65520:RETURN
10 CLR:GOTO230
30 :
40 IN$="":PRINTY$;
50 IF(PEEK(162)AND16)=16THENPRINTU$;L$;
60 IF(PEEK(162)AND16)=0THENPRINT" ";L$;
70 GETZ$:IFZ$=""THEN50
71 IFZ$="[147]"ORZ$=""THEN50
80 IFZ$=CHR$(13)THENRETURN
90 IFZ$<>D$THEN130
100 IFLEN(IN$)=0THEN70
110 IN$=LEFT$(IN$,LEN(IN$)-1)
120 PRINT" "L$L$;:GOTO50
130 IFLEN(IN$)>239THEN50
140 IN$=IN$+Z$:PRINTZ$;:POKEQM,0:GOTO50
150 :
160 INPUT#15,E,E$
170 ER=.:IFETHENPRINT"[147]"E;E$:FORA=1TO2000:NEXT:ER=1
180 RETURN
190 :
200 GET IN$:IFIN$=""THEN200
210 RETURN
220 :
230 PRINTCHR$(147)CHR$(14)
240 POKE53280,0:POKE53281,0:DIM A$(15)
250 SF$="0:SUBJECT.FILE"
260 OPEN15,8,15:OPEN2,8,2,SF$
270 INPUT#15,E:IFE=62THENX=10:NF=0:GOTO290
280 INPUT#2,NF:X=NF+10:IFX<10THENX=10
290 IFE=62THEN310
300 FORX=1TONF:INPUT#2,A$(X):NEXT
310 CLOSE2
320 D$=CHR$(20):Y$=CHR$(158)
330 W$=CHR$(5):B$=CHR$(154):P$=CHR$(156)
340 U$=CHR$(164):L$=CHR$(157)
350 W=40
360 C=64:IFFRE(0)<>FRE(1)THENC=128
370 IF C=64 THEN QM=212:SM=828
380 IF C=128 THEN QM=244:NK=88:SM=2816
390 IF C=128 AND PEEK(215)=128THENW=80
400 GOSUB980:REM POKE IN ML
410 PRINT"[147][158]              [202][201][198][198][217] [202][207][212][212][197][210]
420 [153]"              TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
430 PRINT"         [159][193]  -  [154][193]DD NOTE TO A FILE
440 [153]"         OPEN(null)  -  CONT(null)EAD A FILE
450 PRINT"         [159][195]  -  [154][195]REATE NEW FILE
460 [153]"         OPENSTR$  -  CONTSTR$ELETE FILE
470 PRINT"         [159][209]  -  [154][209][213][201][212]
490 [153]"OPEN(null)UMBER OF FILES ON DISK:"NF
510 [153]"LENHOOSE [PRINTATN, PRINT(null), PRINTLEN, PRINTSTR$ OR PRINT(null)]:
515 GOSUB200
520 IF IN$="C"ORIN$="[195]"THEN720
530 IF IN$="D"ORIN$="[196]"THEN860
540 IF IN$="Q"ORIN$="[209]"THEN750
545 IFIN$="A"ORIN$="[193]"ORIN$="[210]"ORIN$="R"THEN550
546 GOTO515
550 PRINT"[147][155][198]ILES ON DISK --"
552 IFNF=.THENPRINT"[206]O FILES ON DISK.":FORA=1TO2000:NEXT:GOTO410
555 FORA=1TONF:PRINT""A"[153]"A$(A):NEXT
559 CD$=IN$
560 A$="[193]DD TO":IFIN$="R"THENA$="[210]EAD"
570 PRINT:PRINTA$;" WHICH SUBJECT?
580 [141]200
590 A[178][197](IN$):[139]A[179]1[176]A[177]NF[167]410
600 F$[178]"0:"[170]A$(A)
610 [139] [195](F$)[177]20[167]F$[178][200](F$,20)
620 [139] CD$[178]"R"[167]1050
630 MX[178]6:[139]W[178]80[167]MX[178]3
640 [153]"LOADVALNTER TEXT:  ("MX"LINES MAX )
650 PRINT:PRINTY$:GOSUB40
660 GOSUB690:PRINT#2,IN$:GOSUB160
665 IFERTHEN410
670 PRINT#2:CLOSE2
680 GOTO410
690 :
700 CLOSE2:OPEN 2,8,2,F$+",A,S,W"
710 RETURN
720 IFNF=20THENPRINT"[147]20 [198]ILES [205]AXIMUM ...":FORA=1TO1000:NEXT:GOTO410
728 PRINT"[147][206]EW CATEGORY NAME: ";:GOSUB40
730 A$(NF+1)=IN$:NF=NF+1
740 PRINT"[147]":GOSUB810:GOTO1150
750 :
760 PRINT:PRINT"[150][193]RE YOU SURE?
770 [141]200
780 [139]IN$[178]"N"[176]IN$[178]"(null)"[167]410
785 [139]IN$[179][177]"Y"[175]IN$[179][177]"(null)"[167]770
790 [160]15:[153]"LOAD";:[159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER
792 [160]15:[139]ER[179][177]63[167][128]
794 [147]"HELLO CONNECT",8
800 :
810 F$[178]"0:"[170]IN$
820 [139] [195](F$)[177]20[167]F$[178][200](F$,20)
830 [160]2:[159]2,8,2,F$[170]",S,W":[160]2
840 [141]160:[139]ER[167]NF[178]NF[171]1:[137]410
850 [142]
860 :
870 [153]"LOADCLRSTR$ELETE":[153]
880 [129]X[178]1[164]NF:[153]W$X[163]7)B$A$(X):[130]
890 [153]:[153]
900 [133]"SYSSTR$ELETE ASCILE #   ";IN$
910 A[178][197](IN$):[139]A[179]1[176]A[177]NF[167]410
920 [153]:[153]:[153]"STR$ELETE "A$(A)".
930 PRINT:PRINT"[154][193]RE YOU [211][213][210][197]?":GOSUB200
940 IFIN$<>"Y"THEN410
950 PRINT:PRINT"[150][196]ELETING...
960 [152]15,"S0:"[170]A$(A)[170]"*"
970 A$(A)[178]"":NF[178]NF[171]1:[137]1150
980 :
990 [129]J[178]SM[164]SM[170]65:[135]A:[151]J,A:[130]:[142]
1000 [131] 173,214,240,201,82,240,27,162,2,32,198,255,32,228,255,32
1010 [131] 210,255,169,0,133,244,165,211,201,0,208,250,166,144,208,30
1020 [131] 240,234,162,2,32,198,255,32,228,255,32,210,255,169,0,133
1030 [131] 212,173,141,2,201,0,208,249,166,144,208,2,240,233,32,204
1040 [131] 255,96
1050 :
1060 [160]2:[159]2,8,2,F$:[141]150
1070 [153]"LOAD(null)RESS (null)LEFT$RIGHT$ASC(null) (null)VAL(null) TO PAUSE.
1080 PRINT:PRINT"[208]RESS ANY KEY TO BEGIN.
1090 [141]200
1100 [153]:[153]Y$
1110 [158] SM : [160]2
1120 [153]:[153]W$"(null)RESS ANY KEY.
1130 GOSUB200:GOTO410
1140 :
1150 PRINT:PRINT"[158][213]PDATING SUBJECT FILE...
1160 [152]15,"S"[170]SF$
1170 [159]2,8,2,SF$[170]",S,W":[152]2,NF
1180 [129]X[178]1[164]NF[170]1
1190 [139]A$(X)[179][177]""[167][152]2,A$(X)
1200 [130]:[160]2:[137]10
60100 PN$[178]"MID$RIGHT$ASCASC(null) MID$(null)(null)(null)VAL(null)":AN$[178]"PEEK(null):  PEEK(null)(null)LENVAL MID$ATNVALCHR$VAL(null)
60110 BO=14:SC=1:CL=06:C1=05:C2=14:C3=05:C4=14:C5=2:C6=09:C7=4
60130 POKE53280,BO:POKE53281,SC:PRINT"[147]";:GOTO60250
60140 POKE646,C1:PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
60150 [151]646,C2:[153]" FN        (null)(null)ATNSTR$(null)(null)ATN(null) (null)(null)VAL(null)VAL(null)(null)(null):        THEN
60170 POKE646,C1:PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
60180 [151]646,C6:[153]""[163]20[171][195](PN$)[173]2);PN$
60190 [151]646,C7:[153]""[163]20[171][195](AN$)[173]2);AN$
60200 [151]646,C5:[153]""[163]13)"LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1986
60210 PRINTTAB(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]
60220 [151]646,C3:[153]" TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
60230 POKE646,C4:PRINT" [165]                                  [167]
60240 [151]646,C3:[153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT";
60245 [151]198,.:[137]60360
60250 [151]646,CL
60255 [153]" *NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWRND
60260 FORA=1TO3:GOSUB60470:NEXT
60270 GOSUB60470:PRINT"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
60280 [129]A[178]1[164]16:[141]60470:[130]
60290 [153]"ONANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND
60300 FORA=1TO3:GOSUB60470:NEXT
60310 PRINT" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
60320 POKE53280,BO:POKE53281,SC:GOTO60140
60360 R%=22:C%=2:GOSUB1
60370 POKE646,C2:PRINT"[165][208]RESS THE [[211][208][193][195][197] [194][193][210]] TO CONTINUE.[167]
60372 L1[178]07:L2[178]11:I1[178][171]1:I2[178]1
60375 R%[178]L1:C%[178]14:[141]1:[153]"            "
60376 R%[178]L2:C%[178]11:[141]1:[153]"                 "
60378 L1[178]L1[170]I1:L2[178]L2[170]I2
60390 [139]L1[170]2[177][178]L2[167]I1[178][171]I1:I2[178][171]I2
60400 [139]L1[178]5[167]I1[178][171]I1
60410 [139]L2[178]14[167]I2[178][171]I2
60420 R%[178]L1:C%[178]14:[141]1:[151]646,C6:[153]PN$
60430 R%[178]L2:C%[178]11:[141]1:[151]646,C7:[153]AN$
60440 [141]60500:[137]60375
60470 [153]" GETWAITGET":[142]
60500 [161]A$:[139]A$[179][177]" "[167][142]
60501 [137]10